home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / point_download < prev    next >
Encoding:
Text File  |  1995-05-05  |  2.9 KB  |  165 lines
  1. ;
  2. ;    POINT DOWNLOAD
  3. ;
  4. ;    Scriptfile zum Download der neuen Nachrichten im Z-Netz-Format
  5. ;    $VER: 1.12 / 29.01.1995
  6. ;
  7. ;    Das Script sollte so eingebunden werden, dass es ueber Flags
  8. ;    auf die Befehle EXTERN und DISK DOWNLOAD zugreifen kann !
  9. ;
  10. ;    Aufruf durch User : POINT DOWNLOAD
  11. ;
  12. ;    Das Script sollte so eingebunden werden, dass es ueber Flags
  13. ;    auf die folgende Befehle zugreifen kann !
  14. ;
  15. ;    CHECK FILE
  16. ;    DISK DOWNLOAD
  17. ;    ECHO
  18. ;    EOD
  19. ;    EXTERN
  20. ;    GOTO
  21. ;    IF
  22. ;    MENU
  23. ;    ON BREAK
  24. ;    ON ERROR
  25. ;    POINT MAKEFILE
  26. ;    WAIT
  27. ;
  28. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  29. ;
  30. ;    COPY
  31. ;    DELETE
  32. ;
  33. ;    Konstanten :
  34. ;
  35. TMPDIR  = "mbmsg:point/'{port}'/"        ; Dir fuer Tmp-Files
  36. NETDIR  = "mbmsg:point/netcall/"        ; NET-Directory
  37. MAXKBYT = 2000                    ; Max. Filelaenge in KByte
  38. MSGFILE = "PUFFER"                ; Name des Msg-Files
  39. NRFILE  = "msgnr"                ; File fuer Msg-Nummern
  40. COPYFILE= "'{NAME}'.lha"            ; Vorgabefile (Pack-Event)
  41. COPYNR  = "'{NAME}'.msgnr"            ; File fuer Msg-Nummern
  42. PCKFILE = "called.lzh"                ; Name des gepackten Files
  43. PACKER  = "lha -P-1 m ""'TMPDIR''PCKFILE'"" ""'TMPDIR''MSGFILE'"""
  44.                         ; Packen
  45. ;
  46. ;    Bei Abbruch oder Fehler verzweigen / Texte laden
  47. ;
  48.  
  49. _on error ERROR
  50.  
  51. LANG={DEFLANGUAGE}
  52. _check file "mbbatch:com/'{ALANGUAGE}'/point_download.bat" GETTEXT
  53. LANG={ALANGUAGE}
  54. GETTEXT:
  55. _disk execute/keep "mbbatch:com/'LANG'/point_download.bat"
  56.  
  57. _on break ABORT
  58.  
  59. ;
  60. ;    Starttext ausgeben
  61. ;
  62.  
  63. _echo STARTTEXT
  64.  
  65. ;
  66. ;    Vorgepackte Nachrichten senden ?
  67. ;
  68.  
  69. _check file "'NETDIR''COPYFILE'" QUESTION    ; Existiert Sendefile ?
  70. _echo COPYTEXT
  71. _extern/q copy "'NETDIR''COPYFILE'" "'TMPDIR''PCKFILE'"    ; Ja, vorgepackte
  72. _extern/q copy "'NETDIR''COPYNR'" "'TMPDIR''NRFILE'"    ; Files kopieren
  73. _goto DOWNLOAD                    ; -> Download
  74.  
  75. ;
  76. ;    Frage: Welche Messages exportieren & packen ?
  77. ;
  78. QUESTION:
  79. _menu MENUTEXT -
  80.  KEY_MARK MARK -
  81.  KEY_NEW NEW -
  82.  KEY_ALL ALL -
  83.  KEY_ABORT ABORT
  84.  
  85. MARK:
  86. Option="/mark"
  87. _goto EXPORT
  88.  
  89. ALL:
  90. Option="/all"
  91. _goto EXPORT
  92.  
  93. NEW:
  94. Option=""
  95.  
  96. ;
  97. ;       Alte Files loeschen, neues File erzeugen und packen
  98. ;
  99. EXPORT:
  100. _echo/nolf EXPORTTEXT
  101. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?"
  102. _extern/q rename "'TMPDIR''PCKFILE'" "'TMPDIR''PCKFILE''{CALLNR}'"
  103.  
  104. ;
  105. ;    Message exportieren
  106. ;
  107.  
  108. _on error ABORT
  109. _point makefile'Option' "'TMPDIR''MSGFILE'" 'MAXKBYT' "'TMPDIR''NRFILE'"
  110. _on error ERROR
  111.  
  112. ;
  113. ;    Messages packen
  114. ;
  115.  
  116. _echo/nolf PACKTEXT
  117. _extern/q 'PACKER'
  118. _echo PACKENDTEXT
  119.  
  120. ;
  121. ;       Gepacktes File Downloaden
  122. ;
  123. DOWNLOAD:
  124. _echo/nolf DOWNTEXT
  125. _waitkey
  126. _echo
  127.  
  128. _on error/ignore
  129. _disk download "'TMPDIR''PCKFILE'"
  130. _on error ERROR
  131.  
  132. _menu RETRYTEXT -
  133.  KEY_RETRY DOWNLOAD -
  134.  KEY_OK OK
  135.  
  136. OK:
  137. _menu MARKTEXT -
  138.  KEY_MARKMSGS SETNR -
  139.  KEY_UNMARK END
  140.  
  141. ;
  142. ;       Die abgeholten Nachrichten markieren
  143. ;
  144. SETNR:
  145. _point makefile/setnr "'TMPDIR''NRFILE'"
  146. _extern/q delete "'NETDIR''COPYFILE'" "'NETDIR''COPYNR'"
  147.  
  148. ;
  149. ;       Ende
  150. ;
  151. END:
  152. _echo/nolf DELTEXT
  153. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?"
  154. _echo DELENDTEXT
  155. _eod
  156.  
  157. ;
  158. ;       Wenn Abbruch oder Fehler
  159. ;
  160. ERROR:
  161. _echo ERRORTEXT
  162. ABORT:
  163. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?"
  164. _eod
  165.